Imports DaveSexton.DocProject.DocSites

Partial Public Class DocSiteLetterBar
	Inherits System.Web.UI.UserControl

	Public ReadOnly Property Letters() As Char()
		Get
			Return DocSiteManager.Settings.LetterBar.ToCharArray()
		End Get
	End Property

	Public ReadOnly Property LettersCount() As Integer
		Get
			Return DocSiteManager.Settings.LetterBar.Length
		End Get
	End Property

	Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
		DataBind()
	End Sub

	Public Event LetterClick(ByVal sender As Object, ByVal e As CommandEventArgs)

	Protected Sub letter_Command(ByVal sender As Object, ByVal e As CommandEventArgs)
		RaiseEvent LetterClick(Me, e)
	End Sub
End Class